home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
002a
/
corewar.zip
/
GEMINI2.PRG
< prev
next >
Wrap
Text File
|
1991-04-23
|
384b
|
14 lines
BGN Gemini ;Self-copying organism
JMP C
A DAT 0
B DAT Grid_Size+9
C MOV @A @B ;Start copying
CMP A #9 ;Check to see if full program (Length=9) copied
JMP D ;If so, exit routine
ADD #1 A ;Increment source
ADD #1 B ;Increment destination
JMP C ;Keep copying
D MOV #Grid_Size+9 Grid_Size+3 ;Reset data
SPL Grid_Size+3 ;Trasnfer execution and begin again
END